use Data::Dumper;
use SetSolution;
$a = SetSolution->new;
$a->add_transition([],['a'],[1],[1]);
#print Dumper($a);
$a->add_transition(['a'],['b','c','d'],[1,1,1],[1,1,1]);
#$a->increment_set_size();
$a->add_transition(['a','b'],['c'],[1],[1]);
$a->add_transition(['a','c'],['b'],[1],[1]);
$a->add_transition(['a','d'],['b'],[1],[1]);
#$a->increment_set_size();
$a->add_transition(['a','b','c'],['d'],[2],[1]);
$a->add_transition(['a','b','d'],['c'],[2],[1]);
#print Dumper($a);
@b = $a->get_solutions_cost(1);
print 'a';
print Dumper(@b);
%c = $a->get_cost_pd();
print Dumper(%c);

print "Z".Dumper($a->get_solutions_cost(0));
print Dumper(%{$a->get_min()});